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ZTITLE ‘File Routines for Network Management’ 
MODULE NMAFILES ( 
LANGUAGE (BLISS32) 
ADDRESSING_MODE (NON 
DDRESSING ret 43 (EXT 
e-aal = 'v04-000 


TERNAL=GENERAL), 
NAL=GENERAL), 
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FACILITY: DECnet Network Management Layer (NMA) 

ABSTRACT: 
This module contains routines which manage the files used by 
network management. These files contain permanent data about the 
configuration of the network. 

ENVIRONMENT: VAX/VMS Operating System 

AUTHOR: Darrell Duffy , CREATION DATE: 18-December-1979 

MODIFIED BY: 


v03-007 MKP0007 Kathy Perko 2-April-1984 
call is made to open a file and it is already open, 
do a SREWIND to get back to the beginning of the file. 


V03-006 MKP0006 Kathy Perko 55-Feb-1984 
Fix NMASREADREC so that the correct key is returned to 
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v03-005 ne hee Kathy Perko Auge! 
nce node perasnent database to use awit yy ie keys 


3 ; 3 
3 1} 
; & 060 1! a 1 s faster to access. When returning permanent database 
: 6} $e } records, don't include * in the data returned. 
-) ¢ boe§ 1 i v03-004 KP P0004 hy Pe 25-April-1983 
s & 00 1! Allow multiple NAes ° te and update the permanent database 
i) oe 0065 1! files at once. 
66 066 1! 
: 67 bog 1 i 
3 os Boe8 : } Add NI configurator sone database. 
: 70 6090 1 i v03-003 KP P0003 athy Per 12-Nov-1982 
2. 0071 1! Allow multiple NAts to a the permanent database 
; f B27 : files at once. 
>; 0074 1! v03-002 MKP0002 Kathy Perko 18-0c t-1982 
; 7 0075 1! Change the way NML opens and closes files so that it checks 
: 76 0076 1! to see if the operation has alreaty been done. This will 
) or 0077 1! improve the performance of operations which now open and close 
; £8 pore } } various files more than once. 
: 80 0080 1 | v03-001 MKP0001 Kathy Perko 3-Aug-1982 
a Os 0081 1! Split module peraenent date base into two: one for X25 and 
3.60 CS 0082 1! one for X29. 
- oF 00835 1! 
; 8684 0084 1! v02-001 LMK0001 well 27-Jul-1981 
>; 62885 0085 ; yr CIRCUIT and hODULE “files. 
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yOAL008 OPENFILE Open a specified tite 1 =3007 1383 90°48 :00 PE KSUMGMASTERSCNML SRCINMAFILES.B3204"" (3) 
ZSBITL 'NMASOPENF ILE Open a specified file’ 
GLOBAL ROUTINE NMASOPENFILE (FILEID, ACCESS) = 


144 

} FUNCTIONAL DESCRIPTION: 

This routine opens a spec ified file for specified access. 
The fileid specifies the file, or all files and the access 
specifies read only or read write. 

' FORMAL PARAMETERS: 


FILEID Value of the fileid parameter (NMASC_OPN_xxxxx) 
ACCESS Value of the access parameter (NMASC_OPN_AC_Rx) 


ROUTINE VALUE: 
COMPLETION CODES: 


i 
i 
i 
i 
' 
i 
i 
! 
i 
i 
i 
Failure or RMS error 
le 


J ! The fab for the file 
File descriptor 


' The rab for the file 
Status return 


IF .FILEID EQL NMASC_OPN_ALL THEN ! If ALL 
BEGIN 


FAB : REF BLOCK (C1,BY 
FILEDSC : REF BLOCK C 
FIELD ¢ 


"4 


RAB 
STATUS; 


aenee NMA$C_OPN_MAX DO Calling ourselves 
STATUS = NMASOPENFILE (.IDX, .ACCESS); ! Call ourself to open it 
IF writnee THEN 


MIMINITINININININ 4 2 2 SS SS “QOOCTKCOCOOOCOCOCOOOOOOOCOCOWMMO@D Y-— 


WWIII PINININININININIDN 2 2 2 SS S “DOC COOCOOCCOOOOOOVOOOOO MWCO 


LEID, FILEDSC) THEN ! Obtain descriptor address 


j 
see ' Get address of FAB 
1) EL 6 THEN i If file isn't open, do it. 


peers (.FILEDSC, .ACCESS); ! Open file by descriptor 
LOGFILEOP (DBGSC_FILEIO, 

-FILETD 

SASCID ("file opened.")); 
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INCRU IDX in NMASC_OPN_MIN Open all the files by 
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File Routines for Network Management 16-Sep-1984 00:42:37 VAX-11 Bliss-32 V 6 
04 NMASOPENFILE Open a specified tite 14- =Sep- 1984 99: $6: a5 DISK SVNEH TER: cum” she NMAFILES. B32"1 * 3) 
: 43 4 ! 
> 24 44 4 i The file is aiready open, so don't reopen it. However 
: ref re Z set RMS's "next record’ back to the beginning of the file. 
: 249 8 23 2 BEGIN 
; 250 48 RAB = .FILEDSC c te 4 tat ! Point to the rab 
, go} 0249 5 $REWIND (RAB = .R AB); 
: 26 0250 4 END; 
: & 0251 4 END 
> 254 0 2¢ ; ELSE 
3 €993 025 RETURN NMA$_BADF ID; ! If not all, return failure 
: 2 0254 END; 
; £ 0255 
; 258 0256 RETURN .STATUS 
3; 639 0257 1 END; 


-TITLE NMAFILES File Routines for Network Management 
-IDENT \v04-000\ 


-PSECT S$PLITS,NOWRT,NOEXE,2 


45 44 GF GE 54 45 4E 00000 P.AAB: ASCII \NETNODE\ : 
0000 -BLKB 1 
00000007 00008 P.AAA: <LONG 7 ; 
00000000" 00000000" 00000000" 0000¢ ADDRESS P.AAB, NMASA_NODE_FAB, NMASA_NODE_RAB : 
45 4E 49 4C 54 45 4E 90018 P.AAD: “ASCII \NETL LINE\ : 
00000007 00020 P.AAC: .LONG 7 
00000000" 00000000' 00090000" 00084 ADDRESS P.AAD, NMASA_LINE_FAB, NMASA_LINE_RAB : 
47 4E 49 47 GF 4C 54 45 4E 00 0 P.AAF: “ASCII YNETLOGING\ ; 
00000009 ist P.AAE: .LONG 9 : 
00000000" 00000000! 00000000" 69040 “ADDRESS P.AAF, NMASA _LOG_FAB, NMASA_LOG_RAB ; 
54 43 45 GA 42 GF 54 45 4E O04¢ P.AAH: “ASCII yNETOBJ ECT : 
00000009 00658 P.AAG: <LONG 9 F 
00000000' 09000900; 00000000" 0005c¢ ADDRESS P.AAH, NMASA_OBJ_FAB, NMASA_OBJ_RAB F 
43 52 43 54 45 4E 00068 P.AAJ: ‘ASCII \NETCIRC\ : 
006F -BLKB 
00000007 00070 P.AAI: .LONG 7 : 
00000000' 99009000; 00000000" 00074 .ADDRESS P.AAJ, NMASA_CIR_FAB, NMASA_CIR_RAB ; 
35 32 58 54 45 4E 00080 P.AAL: “ASCII \NETX25\ : 
90000006 8 P.AAK: .LONG : 
00000000' 99009 900; 0 009000 * 0008C “ADDRESS, ”P. p-AAL NRASA_X25_FAB, NMASA_X25_RAB ; 
39 4 45 4€ 0098 P.AAN: “ASCII \ §\ ; 
90000006 OOAO P.AAM: <LONG ; 
00000000' 00000900. 0 900 ' 0 AG ADDRESS P.AAN, NHASA. X29_FAB, NMASA_X29_RAB ; 
46 4E 4F 4 45 4E 0080 P.AAP: ASCII \NET CONF \ ; 
900 09 7 000B8 P.AAO: <LONG 7 ; 
00990000" 99000000" 0 0° get .ADDRESS P.AAP, NMASA_CNF_FAB, NMASA_CNF_RAB : 
2—E 64 65 6E€ 65 6 6 pose 7 See yy al \rile opened. ; 
88 $0008" bO08 Paina “ADDRESS PAAR : 
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NMASOPENFILE Open a specified file -Sep-1984 DISKSVMSMASTER: chat” She NMAFILES. B32. td (3) 


»PSECT SOWNS,NOEXE,2 
00000 NMASW BLK 


80004 NMASA “NOBECFA FAB: 


.BCK 80 
00054 NMASA_NODE RAB: 
.BCK 68 
00098 NMASA -LINE FAB: os 
OO0E8 NMASA_LINE_RAB: 
.BCK 68 
0012C NMASA_LOG_FAB: 
.BLK 80 
0017C NMASA_LOG_RAB: 
-BLKB 68 
001CO NMASA_OBJ_FAB: 
-BLK 80 
00210 NMASA_OBJ_RAB: 
BLK 68 
00254 NMASA_CIR_FAB: 
BLK 80 
002A4 NMASA_CIR_RAB: 
BLKB 68 
002E8 NMASA_X25_FAB: 
BLKB 80 
00338 NMASA_X25_RAB: 
BLKB «68 
0037C NMASA_X29_FAB: 
BLKB 80 
OO3CC NMASA_X29_RAB: 
-BLKB 68 
00410 NMASA_CNF_FAB: 
.BLKB 80 
00460 NMASA_CNF_RAB: 
-BLKB «68 
NMASA_NODE_DSC= P.AAA 
NMASA_LINE-DSC= P.AAC 
NMASA_LOG_BSC= P.AAE 
MASA_OBJ_DSC= P.AAG 
NMASA_CIR-DSC= P.AAI 
NMASA_X25_DSC= P.AAK 
NMASA_X09_DSf= P.AAM 
NMASA_CNF -DSC= P.AAO 
.EXTRN NMLSDEBUG MSG, NMLS$DEBUG_TXT 
eEXTRN NAL $LOGE ICEOP, NMLSLOGRECORDOP 
-EXTRN SYSSREWI 
-PSECT SCODES,NOWRT,2 
000 ENTRY NMASOPENFILE, Save R2,R3 : 0187 
SE 04 ¢ SUBL2 #4, SP : | 
0000007F 8F 046 ac OD CMPL picelD, #127 : 0217 
1A 12 000 BNEQ ; 


wea 


3; Routine Size: 
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52 04 O000F 
08 AC ODD 00011 
DD 14 
E6 AF F 16 
23 Dd 1A 
A E 1 
D6 
07 D1 8 
if 
, ie 8 
53 9} DO 00029 
E OD 88 C 
00000000V 0 " 05 PB ; 
03 50 ES Ogoss 
29 of dO 8 B 
1 08 AQ DdO 000 
02 Al 83 004 
26 12 0004 
08 af DD 00047 
50 DD OO04A 
00000000v og 9 FB Bp bes 
5 44 005 
21 5 3 0056 
00000000' 00 9F 00059 
04 AC DD O005F 
gt DD 00062 
00000000G 00 3 FB 00064 
0D 11 00068 
50 Oc ad 00 Boo 
50 DD 00071 
00000000G 00 01 FB 00073 
50 53 DO OOO7A 
04 0007D 
50 D4 OO07E 
04 00080 


129 bytes, 


Routine Base: 


SCODES + 0000 


s-on 
te 
owe 
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bed 


Ww 
wn 


= 
sed 


5$: 


®®o 
oU0 
+e 
ss 
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000 
ae 
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mo 
Lv 
orn 


BBM VN DW BD PMV BMY BL ODS PS — OW 


TUS, 


> 
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n 
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one 
m 
oO 
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$ 
Sc 
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STATUS 


» NMLSLOGF ILEOP 


(RO), RAB 
AB 

1, SYSSREWIND 
STATUS, RO 


RO 
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nes for Network Mana 
FILE Return a file 


BITL "NMASSELECTFILE Return a fi 
OBAL ROUTINE NMASSELECTFILE (FILE 


oe 

FUNCTIONAL DESCRIPTION: 

This routine returns the address of the file 
+ he file. Failure is returned if the 
v . 


FORMAL PARAMETERS: 


FILEID 
FILEDSC 


IMPLICIT INPUTS: 


NONE 


IMPLICIT OUTPUTS: 


NONE 
ROUTINE VALUE: 


COMPLETION CODES: 
Success or failure 


SIDE EFFECTS: 
NONE 
BEGIN 


LOCAL 
STATUS; 


STATUS = NMAS$_SUCCESS; 


-FILEDSC = 
BEGIN 


Iptor 


L 
l 


of 
>. 


scriptor for a 


if 
fileid is not 


Value of the fileid (NMASC_OPN_xxxxx 
Address to return address of f 


) 
Tle descriptor 


! Obtain the file descriptor 
! Address 


CASE =FILEID FROM NMASC_OPN_MIN TO NMASC_OPN_MAX OF 


NMA$C_OPN_NODE 
NMASC_OPN_LINEJ: . 
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NOUS WMN—O 
WWAWAWAAAAW 


~~ 2 3 OOO 


wn —-OC0@ 


WANA 


tA AB Wd Wd at a AH 


NMASC_OPN_X 


INRANGE 
OUTRANGE): 


NMASC_OPN_OBJJ: 
NMASC_OPN x33 : 


9): 
NMASC=OPN_CNF J: 


N 
NMASA_X 
NMASA~C 


Wewewe. >: 
i=i~1~-1-)~-) = | 


' Code not known, fail 


38e 99:85:53 | Wheel ShAs OSRCINMAFILES.B3204%" (45 


Routine Base: 


3; Routine Size: 93 bytes, 


NMAFILES File Routines for Network Managemen 

YOS CODD NMASSELECTFILE Return a file Soecr 

; 318 15 4 BEGIN 

; 319 1 4 . 

3 0 17 & 

; 1 18 4 

8 § 0319 4 

3 8 0 END; 

$ 4 1 

3 5 8 ¢ TES 

3 6 END; 

: Ser 0324 

3 8 0325 RETURN .STATUS 

: 9 0 $ 

3 0 0 END; 
3¢ 00000000' 

07 00 04 
0025 001F 0019 
F 038 0031 
50 
50 18 
50 34 
50 50 
50 68 
50 0080 
50 0098 
50 0080 
08 + 

0 


iptor 


VINOOOON — PP HK PMP NVOWN 


=ONMVMION MW ON MNVUINIDNOO 


So 
o 


1o8ee= 188s 99:86:35 Nak aBAAS SERS hme 


STATUS = NMAS_BADF 1D; 


SCODES + 0081 


04 00000 

4 00002 

DO 00009 

CF 0000C 
00011 1$: 
00019 

7C 00021 

11 Ba8 3 

9E 00025 2$: 

11 00028 © 

9E O002A 3$: 

11 000 

9E B00 4$: 

11 000 

9E 4 5$: 

11 OOO3A 

9E 000 ‘ 6$: 

11 0004 

bs BRes 7$: 

1 7 

oF 49 8$: 

11 4 

oe 0050 9$: 

DO 00055 10$: 

8 0 7 

4 0005C 


! Return invalid descriptor 


NMASSELECTFILE, Save R2 
NMASA_NODE_DSC, R2 

#1, STATUS 

paleo. #0, #7 


w 
? 
— ee 
PRPMAPAPHAAHK 
sess eee 


R 
NMASA_NODE_DSC, RO 
NMASA_LINE_DSC, RO 
NMASA_LOG_DSC, RO 
NMASA_OBJ_DSC, RO 
NMASA_CIR_DSC, RO 
NMASA_X25_DSC, RO 
NMASA_X29_DSC, RO 


NMASA_CNF_DSC, RO 
RO, aFILEDSC 
STATUS, RO 


ones 
« SRC JNMAF ILES.B32 


age 
39 


( 


10 
4) 


1| 
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NMAFILES File Routines for Network Renepesent 18-Sep-1984 eT 14 VAX-11 Bliss-32 nett Page 1 
V04- NMASOPENFAB Open or Create a File 14-Sep-1984 12:50:02 DISKSVMSMASTER: CNML.SRCINMAFILES.B32;1 (5). 
: ¢ § 1 ZSBTTL "NMASOPENFAB Open or Create a File’ 
: ; 4 ! ROUTINE NMASOPENFAB (FILEDSC, ACCESS) = 
; 335 1 1 !4 
; 8 8 § : FUNCTIONAL DESCRIPTION: 
: 8 0334 1! This routine does the actual open or create of a file. 
: 9 0335 1! First the fab is eaere wica the correct attributes and then 
; 340 0 $ 7% a create or open service is done. Create is used if the file 
s 341 0 1! is to be opened with read-write access and the FOP CIF bit is 
3 ri} 0 3 1! specified so that the file is created if it does not exist. 
; 34 8 1! The created file will be indexed with a two byte binary key. 
3; 344 40 1! A rather large bucket size is used to allow for long records. 
3; 345 0341 1! The protection is set to be read for world and group and the 
: #08 tet 1! UIC is set to the system. 
: 347 0345 1! 
Z *8 03s } FORMAL PARAMETERS: 
s 20 0 rf +! FILEDSC Address of the filedescriptor for the file 
: 2 tre 4 : ACCESS Value of the access parameter 
3 2g §3c9 1 ! IMPLICIT INPUTS: 
3; 354 0350 1! 
3 399 0351 1! NONE 
3 326 baa6 1! 
3 44 0355 1 ! IMPLICIT OUTPUTS: 
s 338 0354 1! 
3; 359 0355 1! NONE 
: 360 B328 1! 
: 361 0357 1 ! ROUTINE VALUE: 
5 306 B28 1 ! COMPLETION CODES: 
; 3 359 1! 
: 364 0360 1! Success or an RMS error 
3 365 0361 1! 
3 $08 Bees 1 ! SIDE EFFECTS: 
3; 367 0365 1! 
; 368 0364 1! NONE 
:; 369 0365 1! 
; 370 B 208 1 !-- 
: 71 0367 1 
: i 0368 BEGIN 
; 7 0363 
3; 374 0370 MAP ' File descr ipter format 
3 a ta FILEDSC : REF BLOCK C1, BYTE] FIELD (FDSCFLDS); 
: 77 358 LOCAL 
: 78 74 STATUS, ' Return status 
; 379 75 FAB, ' Fab address 
; 380 7 RAB, ' Rab address 
: 381 7 FNS, ' Filename size 
: ag 7 FNA; ! Filename address 
; 38 7 
: 384 80 
: 385 1 KEYXAB : SXABKEY_DECL, ' Key xab for create 
3 ; § PROXAB : $XABPRO_DECL; ! Protection xab for create 
: 388 3B2 FNA = .FILEDSC CFDSCFNA); ! Obtain descriptor fields 
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NMAFILES File Routines for Network Management 1b-$e -1984 00:42:37 VAX-11 Bliss-32 V4.0-74 Page 12 
v04- NMASOPENFAB Open or Create a Pile 1 ~8ep-19 4 99°88 :65 STEKSVMGHASTERSENML SRCINMAFILES.B3204° (5) | 
; 88 5 FNS = .FILEDSC CFDSCFNS); 
; § FAB = .FILEDSC LFDSCFAB); 
3 4! RAB = .FILEDSC CFDSCRABJ; 
; 38 5 —_ EQL NMASC_OPN_AC_RW ! Check access for read write 
3 3? 4! BEGIN 
s 397 P 0 38 SFAB_INIT ! Initialize fab for create 
: 398 P 0394 Tt 
; 399 P 0395 FAB = .FAB, ' Fab address | 
; 400 P 6 96 BKS = 9 i Bucket size | 
: 401 P 039 DNM = 'SYS$SYSTEM:.DAT' i Default filename string 
: 40 P0398 FAC = (UPD, PUT, GET, DEL), | File access | 
; 40 P 0399 FNA = .FNA, ! Filename string address 
> 404 P 0400 FNS = .FNS, ! Filename string size 
; 405 P 0401 FOP = (CIF, MXV), ! File open codes (create if, max ver) 
; 406 P Bee ORG = IDX, ! Organsization 
3; 407 P 040 RFM = VAR, ' Record format | 
; 408 P 0404 SHR = (UPD, PUT, GET, DEL), ! Share 
: 409 P 0405 XAB = PROXAB ! Xab chain 
: 410 0406 b3 
3: 411 0407 
: 412 P 0408 S$XABKEY_INIT ! Initialize key xab 
3 413 P 0409 ; ( | 
; 4146 P 0410 XAB = KEYXAB, ' Xab address 
> «415 P0411 3 DTP = BN2, ! 2 byte binary 
: 416 P 98h 3 POSO = 0, ! Position 
; 417 P 041 = 2, ! Siz 
; 418 P 0414 KREF = 0 ! Key reference (primary) | 
: 419 0415 3 
; 420 pais 
: 421 P 041 SXABPRO_INIT ! Initialize protection xab 
: os§ P 0418 ( 
3; 423 P 0419 XAB = PROXAB, ' Xab address 
: 424 P be5¢ vIc = (1, ° ' Uic of owner (system) 
3; 425 P 0421 3 PRO = (RWED, RWED, , ), ! Protection (group and world no access) 
> 426 p d4ge 3 NXT = KEYXAB i Chain 
: 036 0254 ' 
3 ro Be H STATUS = $CREATE (FAB = .FAB); ! Create the file if not found 
3 oe) Re 7 END 
: 133 be § ELSE 
: 434 0430 
: 435 ett BEGIN 
; 436 P 04 § $FAB_INIT ! Initialize the fab 
: 437 P 04 T 
3; 438 P 0434 FAB = .FAB ' Fab address 
> 439 P 0435 FAC = (GETS, i File access 
3; 440 P 04 § FNA = .FNA, ! Filename string address 
: 6441 P 04 FNS = FNS ! Filename string size 
> 46 P 0438 DNM = 'SYS$SYSTEM: .DAT' i Default filename string 
3 6 P 04 SHR = (UPD, PUT, GET, DEL) ! Share 
3 444 440 ); 
; 445 441 


Se ee 
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NMAFILES File Routines for Network Management 16-Sep- =13 4 X-11 elf Liss -32 V 5 
yOe O08 NMASOPENFAB Open or Create a Pfte 14- ~Sen- 2 93: 26; 35 SKSVMSM4STER: ie OSACINMAFILES. B32; Paee (5 
: ie tts STATUS = SOPEN (FAB = .FAB); ! Open the file 
: 448 444 END; 
; 449 445 
$ rt re IF NOT .STATUS ' Return failure status 
; 451 44 THEN 
3 128 tt8 RETURN .STATUS; 
: hee p 0480 SRAB_INIT ! Initialize the rab 
: o3s heat r ! Initialize the ra | 
>; 456 P 128 RAB = .RAB, ' Rab address 
3 tee P te FAB = .FAB, ' Fab address 
; 458 P 0454 KBF = NMASW_KEYBUF, ! Key buffer address 
: 459 P 0455 KRF = 9. ! Key of reference 
; 460 P et KSZ = ' Key size 
: 461 P O49 RAC = KEY i Record access mode 
: 46¢ P 0458 ROP = (UIF,KGE) i Record options (put is update) 
Poet tbe 
3 +22 ree RETURN SCONNECT (RAB = .RAB); ! Connect record stream and return | 
; 467 ts END; | 
-PSECT S$PLITS,NOWRT,NOEXE,2 
41 44 2€ 3A 4D 45 54 53 59 53 24 53 59 53 OQOOODC P.AAS: .ASCII \SYSSSYSTEM:.DAT\ 
41 44 2— 3A 4D 45 54 53 59 53 24 53 59 53 OOOEB P.AAT: .ASCII \SYSSSYSTEM:.DAT\ 
-PSECT SOWNS,NOEXE,2 
004A4 KEYXAB: .BLKB 76 
004FO PROXAB: .BLKB 88 
SRMS_PTR= KEYXAB 
SRMS_ PTR= PROXAB 
eEXTRN SYSSCREATE, SYSSOPEN 
ZEXTRN SYSSCONNECT 
-PSECT S$CODES$,NOWRT,2 
O7FC 00000 NMASOPENF AB: 
WORD Save R2,R3,R4,R5,R6,R7,RB,R9O,R1I0 : 
5A 00000000' 00 43 000 MOV PROXAB, R10 3 
20 04 AC 00 000 MOVL FILEDSe RO : 
04 AO D9 00 MOVL  4(RO), ENA : 
59 60 9 Bota MOVL (RO), FNS 3 
56 08 AO 7D 00014 MOVG 8(ROS, FAB : 
01 08 AC DI 0018 CMPL ACCESS, rs) : 
0 3 Q001C BEQL 1 3 
008) 1 at BRw 2$ ; 
0050 6E ? C H 1$ MOVCS the (SP), #0, #80, (FAB) : 
46 50 ; F 6 5 9 MOVW (FAB) : 
04  A6 020000 F D0 000 MOVL Sptss 4 (FAB) ; 
16 A6 OFOF 8F B80 000 MOVW 2(F AB) : 


16 | 
NMAFILES File Routines for Network Management 1b-$0 =-1984 2:42:37 VAX-11 Bliss-32 V4.0-74 Pa 14 
WOOD NMASOPENFAB Open or Create a File 1 ~8ep-19 4 90:48 '35 NE EKSVMGMASTER CNM SRC INMAFILES.B32°4°" (5). 
1D 6 9 3¢ MOVB #32, _29(FAB) : 
1F Ab 83 $0 O45 MOVB sof sf tenes : 
4 Ab oA : 44 MOVAB PROXAB, 36(FAB) : 
f Ab 8 D 48 MOVL FNA, 44(FAB) : 
A6 00000000' : 9—E 0004C MOVAB P.AAS, 48(FAB) : 
4 Ab 3 O94 MOVB ENS. 33 (FAB) : 
5 Ab F 8 MOVB = #15, 3 (FAB) : | 
E A6 9 90 0005 MOVB #9, 62(FAB) : 
004C 8F 00 6E “2 00 2c 06 MOVCS #0, (SP), #0, #76, SRMS_PTR > 0615) 
BG OA 4C15 BF 6089 MOVW #19477, $RMS_PTR : 
C7 AA O06 MOVB #2, $RMS_PTR719 : 
E2 AA 3 MOVB. #2, $RMS-PTR+46 : 
0058 &8F 00 6E 0 2c o077 MOVCS #0, (SP)> #0, #88, SRMS_PTR + 0423) 
6A 5813 at go 007F MOVW #22547, $RMS_PTR : 
06 AA BG OAA 0084 MOVAB KEYXAB, $RMS-PTR+4 : 
08 AA FFOO } ©8F BO 00089 mMOVW #296 SRMS_PTR+8 : 
OC AA 00010004 8F 00 O008F OVL #65540, $RMS_PTR+12 : | 
56 0D 4644 PUSHL 3 0425) 
000000006 00 91 FB 00099 CALLS #1, SYSS$CREATE : 
4 11 000A0 BRB : 0389) 
0050 =s«&F 00 6E 99 2c O0A2 2s MOVCS #0, (SP), #0, #80, (FAB) : ated 
66 5003 Hi BO OOOAA MOVW #204 3, (FAB) : 
16 Ab OFO2 8F BO OOOAF MOVW #3842, 22(FAB) : 
iF AG 08 90 00085 MOVB #2, 31(FAB) : 
He Ab DO 00089 MOVL NA, 44(FAB) : 
0 A6 00000000' 00 9€ 000BD MOVAB P. 48 (FAB) : 
34 AG 59 90 000C5 MOVB = ENS, 33 (FAB) : 
35 Ab OF 90 000¢9 MOVB #15, 53(FAB) ; 
6 DD 000CD PUSHL FAB > 0442 
000000006 00 g) FB OOOCF CALLS #1, SYSSOPEN ; | 
30 0 : 0006 3$ BLBC. STATUS > 0446 
0044 8F 00 6E 09 C 9008 MOVCS #0, (SP), #0, #68, (RAB) > 0459 
67 4401 8F BO 000E1 MOVW #17409, (RAB) ; 
04 A7 00200010 8F DO OO0E6 MOVL #2097168, 4(RAB) : 
16 A? 01 90 000E MOVE sf RAB) ; 
0 AZ FB10 CA 3 O00F MOVAB NMASW_KEYBUF, 48(RAB) : 
om 02 90 000F MOVB #2, 52(RAB) F 
C A? 56 DO OO00FC MOVL FAB, 60(RAB) : 
57 DD 00100 PUSHL > 0461 
000000006 00 01 FB 9108 ss CALLS #1, SYSSCONNECT : 


3; Routine Size: 266 bytes, Routine Base: S$CODE$ + OODE 


DPV PAP APS AAA STASIS 
ps0 bie eh kee 
FUN“ OOCONOUEWN = 


File Routines for Network Management $ep-1984 00:42:37 VAX-11 Blisse -32 V 15) 
NMASCLOSEFILE Close @ Specified file 1$-$ep-1964 99:86:35 NECSUMBAASTERSCUME SRCONMAF ILES.03209%° «a3 
464 ZSBTTL hapa 4 LE Close a esas ee file’ 

ret GLOBAL ROUTINE NMASCLOSEFILE (FILEID) = 

rh 144 

188 FUNCTIONAL DESCRIPTION: 

<7 This routine closes a specified file or all the files. 

tte FORMAL PARAMETERS: 

tne FILEID Value of the fileid parameter (NMASC_OPN_xxxxx) 

yA i ROUTINE VALUE: 

at COMPLETION CODES: 
ree i Status of last close operation. 
7 


BEGIN 


LOCAL 
REF te SE BYTE) ! The fab for the file 


OOoOCCCO 
FREER 
000 000 
ro) Ww 
=PONININIWIWE BEE EB WII 2 2 2 


FAB : 
FILEDSC : REF B k C1, BYTE) ! File descriptor 
FTE TEED CFOSCFL LDS), 

9394 STATUS; ! Status return 
0491 STATUS = NMAS$_SUCCESS; 
ahs IF 1 esbebees Piven. FILEDSC) THEN ! Obtain descriptor address 
494 ‘adh -FILEDSC LEDs SCFAB); ' Get odprees of FAB 
0495 IF .FAB CFABSW_IFIJ NEQ af THEN If file isn't closed, do it. 
049 BEGIN 
049 STATUS = 
0498 $CLOSE co * -FILEDSC CFDSCFABJ); ! Call RMS to close the file 
0499 IF .STATUS 
0500 * NAL SLOGF 1LEOP (DBG$C_FILEIO, 
0501 -FILEIO 
050¢ SASCID ("file closed.')); 

50 ENT; 
Bebe END 

505 

208 STATUS = NMAS$_BADF ID; 

308 RETURN .STATUS 

509 END; 


~PSECT SPLITS,NOWRT ,NOEXE ,2 


2E 64 65 73 6F 6C 63 20 65 6C 69 66 Bora P.AAV: tt \file closed.\ 3 
000000C 0010 P.AAU: .LONG 2 : 
0000000° 0010C ADDRESS P.AAV : 


~-EXTRN SYSSCLOSE 


— 
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v04 WMASCLOSEF TEE. ‘Close e spectiice Tite if-seont9Re 19:38:03} DEEKSUMGRASTERSCNML SRCINMAFILES.83201°° (65 


«PSECT SCODES,NOWRT,2 


3 


.ENTRY NMASCLOSEFILE, Save R2 ; 0465 
55 C3 SUBL2 #4, SP 
1 D MOVL #1. STATUS 
— 0D PUSHL SP 
AC 0D SHL LEID 
FEB? =sCF 9 F #2, NMASSELECTFILE 
6E OD pILEDSC RO 
08 ‘ D (RO), FAB 
oo a erat Fe oo 
000000006 1 F CALLS #1, SYSSCLOSE 
D VL = RO STATUS : 
BLBC STATUS, 2$ : 04 
00000090" F PUSHAB P.AAU : 0502 
* OF bb ee oa : 8800 
000000006 00 FB CALLS #3, NMLSLOGFILEOP : : 
1 BRB 23 : 9492 : 
D4 1$: CLRL «STATUS : 05 ; 
50 62 D0 2$: MOVL STATUS, RO : 050 ; 
be RET : 0509 : 


; Routine Size: 75 bytes, Routine Base: S$CODES + O1E8 
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we on 
wn b& 
~<<Oor 
creer 
(7) 
Pete Ge Ge Ge Se Se Ge Fe Se Se Ge Ge Ge Se Se Ge Se Se Ge Be Se & 
ef 
3 af 33 


NISSSLSEALAR 


x 


1 
16-5 1984 00:42:37 VAX=11 Bliss-32 V4.0-74 P 7 
14- ep-19 4 99:38:05 DI SKSVMEMASTERSENML SRCINMAFILES.B32¢1°° aa 
F 
$ 


elie Pout logs bo Network Management 
NMASMATCHREC Find a Record in a File 
ZSBTTL "NMASMATCHREC Find a i 


Re 
GLOBAL ROUTINE NMASMATCHREC (FI 


cro 
“mo 
ony 
moa 


KEYADR, FIEL 
IELDADR, RTND 


lee 


FUNCTIONAL DESCRIPTION: 
This routine searches a database for a record grey A given 


HURT 2 


5 
oii 
3 ; field containing given data. Degenerate cases are provided for 
4 } returning all records, or all records containing a specific field. 
1 1 | FORMAL PARAMETERS: 
$ ji FILE! Value of the fileid code (NMASC_OPN_xxxxx) 
4 ' BUF DS Address of a descriptor of a buffer to use 
5 ! KEYADR Address of a word containing the key to start reading 
§ ! eer value is returned in this word. 
! FIELDCODE Va 
: ' FIELDSIZE Value of the field size (zero for wildcard) 
$ FIELDADR Address of the field data 
, RTNDSC Address of a descriptor to return descriptor of data 
¢ ! IMPLICIT INPUTS: 
s NONE 
IMPLICIT OUTPUTS: 
NONE 
i 
i 
! 
i 
i 
i 
i 
i 
i 
i 


] 
ue of the field code (zero for wiidcard)*«##« 


IV Tal val val ah ah sh ah dh Ab Ab db Ab dh 4k th hb bth th dh -oh th dh Ab ah ah ah ah aha ah al al ah al al al ak al ab al al eal al al al al eal eal eal ea wal 


PRIPMOIAIPIPOPININYI ANDI API AIRINIAY PO? a nn a a at a a Ss Ss Ss YY 


CSOOOSSOSOCOCOCOOOCOCOOCOOCOOSOCOSOSOOSOSCOOOOCOOOOOOCOOOOOOOCOOOOOOOOOWO 


40 ROUTINE VALUE: 

* COMPLETION CODES: 

“§ NMA or RMS error status 

$2 SIDE EFFECTS: 

‘3 NONE 

48 

49 oe 

50 

53 BEGIN 

38 BUFDSC : REF VECTOR, ' Buffer to use for record 

55 RTNDSC : REF VECTOR; ! Return data descriptor 

38 LOCAL 

28 FILEDSC : REF BLOCK C1, BYTE] ! File descriptor 

5 FIELD nee be noes 

60 RAB : REF BLOCK 1, BYTE], ! The rab for the file 

61 LCLDSC VECTOR (2) ' A local data descriptor 

6¢ FAB : REF BLOCK (, BYTE], | The fab for the file 
FLDADR, ' Field address 

564 FLOSIZ, ' Field size 

203 STATUS; ' Status return 


i - 
SHATCRREC : nds Record inva Fite 1Sseo-19R4 93: 36: 33 Disk $vmeh neh ASfeaccwmie SRCINMAFILES. B32; ree dF 


EXTERNAL ROUTINE 
NMASSEARCHFLD; ! Search for a field value 


STATUS = NMASSELECTFILE (. zt 


WAAFILES Fi 


< 
F 
es 


ILEID 
FILEDSCS; 


Obtain the file descriptor 
IF NOT .STATUS 
RETURN .STATUS; 


Bogus fileid 


RAB = .FILEDSC CFDSCRAB); ' Point to the rab 
FAB = .FILEDSC CFDSCFABI; Get address of FAB 


IF FAB CFABSW_IFI] EQL 0 


If file not open, 


sb sb Ab Ab Abd Ab tb hh Ab hb hb dh hh hh hh hb hh ab ak a 
bet per tet te eet 2 RPP RPA Ao 
bole) VF WN —OCONOUES WO 0O~ 


FRAN LSE SSLSARPAN SSeS AR 
GOOQOOSOGCCOOCOO OOOO OOOOOOOOOSDOOOOOoOOo 


3 RETURN .FAB CFABSL_STS); ! return open failure status ; 
; RABSW_USZ] = .BUFDSC £03; ! Set the buffer to use ; 
: RABSL_UBFJ = .BUFDSC [1]; : 
5 2 NMASW_KEYBUF = ..KEYADR; ! And the key value to use : 
; 5 WHILE 1 ! Try this forever : 
: $96 g DO . : 
: 44 44 BEGIN : 
3 2p 538 STATUS = $GET (RAB = .RAB); ! Read a record : 
: 601 595 LCLDSC [0] = .RAB RABSW_RSZ); ! Pickup the real record descriptor : 
; 602 396 LCLoSC Ci] =. RABSL_RBFI; 3 
:; 60 59 RTNDSC = .RAB CRABSW_RSZ] - NMLSK_PERM_KEYS_LEN; 3 
“ ope 308 RTNDSC = .RAB CRABSL— _RBFJ + NMLSK~ “PERM_ KEYS— LEN; 3 
: 6 600 IF NOT .STATUS ! If no good, return : 
3 $09 01 N 9 3 
; o38 8§ RETURN .STATUS; : 
: 610 04 NMASW_KEYBUF = ! Set the keyvalue returned ; 
3 o13 605 .(,LCLDSC £1]) <0, 16, 0>; ; 
; ei8 $8 (.KEYADR) <0, 16, 0> = .NMASW_KEYBUF; ! Return for user to remember ; 
; 615 09 FLDADR = 0; ! Start search from beginning ; 
: $16 10 IF NMASSEARCHFLD i Look for the field : 
; oi8 \ -RTNDSC ' Here is the dat : 
3 6Y 1 *FIELDCODE, ' Value of the aoe to look for 3 
:; 620 14 FLOSIZ, ' Return the size here ; 
: 621 15 FLDADR ' Return the address here é 
3; © ¢ 1g ) $ 
3; 6 1 THEN 3 
3 6246 13 4 BEGIN : 
; 625 19 4 s 3 
3; 6 $ 620 4 IF .FIELDSIZE EQ. 0 ! Wildcard 3 
5 ° 1 4 sg ; 
.é $ : é F 


——— 
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| NAF S File Routines for Network Mana t 
hb6 NMASMATCHREC Find a Record inva File 
3; 6 & STATUS = NMAS_SUCCESS; ! It always succeeds 
: ? 1 5 EXITLOOP; 
; es8 ; 4 END; 
3 635 £39 4 IF CHSEQL ! Look at the data 
: 6 1 4 -FLDSIZ, ' Data in record 
; 6 6 ¢ 4 FLDADR 
: 639 4 FIELDSIZE, ! User data 
: 640 6 & FIELDADR, 
; 641 5 4 6 
3 ¢ 6 : 4 
; 646 4 THEN 
; 644 3 BEGIN 
: 645 6 
; o*8 40 STATUS = NMAS_SUCCESS; ! We found such a record 
; 64 641 EXITLOOP; 
: 648 ra] 
> 649 645 4 END; 
a: a 
: 63¢ & NMASW_KEYBUF = .NMASW_KEYBUF + 1; ! Increment key *##* 
: oe? pete (.KEYADR) <0, 16, 0> = .NMASW_KEYBUF; ! Return for user to remember 
: 655 0649 END; 
3 O26 0650 
; 65 0651 IF STATUS 
; 658 0626 THEN 
; 659 065 NMLSLOGRECORDOP (DBGS$C_FILEIO, 
; 660 0654 -FILETD, 
; 661 0655 SASCID (‘record matched"), 
$ $6¢ 0656 LCLDSC); 
: 66 0657 
; 664 0658 RETURN .STATUS 
665 0659 5 
; 666 0660 1 END; 
| -PSECT SPLIT$S,NOWRT,NOEXE,2 
64 65 68 635 74 61 6D 20 64 72 6F 63 65 72 perio P.AAX nr \record matched\ 
000000 00126 P.AAW: <.LONG 14 
0000000" 00124 eADDRESS P.AAX 
EXTRN NMASSEARCHFLD, SYSSGET 
-PSECT SCODES,NOWRT,2 
00FC 00000 eENTRY NMASMATCHREC, Save R2,R3,R4,R5,R6,R7 
7 00000000' 00 4 ey NMASW_KEYBUF, R7 
E 14 C SUBL #20, SP 
SE DD C PUSHL 
04 a5 OD i PUSHL gateie 
FE38 =CF 02 FB 1 CALLS #2, NMASSELECTFILE 


Ee eines one. 


< 


2 


WMAF ILES 
v04 


14 «AC 


; Routine Size: 


File Routine 
NMASMATCHREC 
046 = «AS 


00 


201 bytes, 


s f 
F 

56 

4F 

36 

4 

0 

50 

50 

30 AG 

4 A 

$f 

5 

000000006 99 

6 

of AE 

1 AE 

1c =« BC 

ic = BC 

28 AG 

57 

67 

oc «BC 


000000006 00 
16 


04 BE 
56 
oc «BC 
15 
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nd a Record in a File 


7 
E 
6— 0D 
AQ D 
: D 
wt 
08 A0 B 
4 
08 AC D 
60 8B 
Be AQ 0D 
¢ 6«€68BC UCB 
1¢ =6AC «OO 
54 0D 
01 FB 
50 4 
2 AG SC 
8 A4 Be 
2 AG 
Os C2 
2 C1 
6 £9 
10 BE B60 
67 B80 
04 AE 04 
04 AE OF 
OC AE OF 
10 AC OD 
1¢ =6©AC «ODD 
9° FB 
0 €9 
14 AC o 
oc 1 
08 AE 20 
1 BC 
8 
1 OD 
Oe 11 
67 B86 
67 80 
99 11 
56 EY 
of A F 
00000000" 0 F 
04 AC DD 
01 0D 
4 F 


000000006 90 


Routine Base: 
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o 
oo 
ow 


SCODES + 0233 
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2$: 


3$: 


4$: 
5$: 


a 


7 VAX-11 Bliss-32 V4.0-74 Page 
35 DTEKSVMGHASTERSLNML SRCINMAFILES.B3204° (3 
RO, STATUS 3 
STATUS, 3$ : 0573 
FILEDSC, RO + 0577 
12(RO0), RAB : 
(RO), FAB ; 0578 
(FABS : 0580 
8(FAB), RO + 0582 
BUFDSC, RO + 0584 
(RO) 32(RaB) : 
4(ROS, 36(RAB) ; 0585 
@KEYAOR, NMASW_KEYBUF : 0587 
RTNDSC, RS : 0598 
RAB 3; 0593 
#1, SYSS$GET : 
RO, STATUS : 
34(RAB), LCLDSC + 0595 
4O(RAB), LCLDSC+4 + 0596 
34(RAB). @RTNDSC : 0597 
a. @RTNDSC : 
#2. 40(RAB), 4(R5) : 0598 
STATUS, 7$ + 0600 
@LCLDSC+4, NMASW_KEYBUF + 0605 
NMASW_KEYBUF, aKEYADR + 0607 
FLDADR 3; 0609 
FLDADR : 0611 
FLDSIZ F 
FIELDCODE + 0613 
RTN ; 0612 
#4, NMASSEARCHFLD ; 
FIELDSIZE : 0620 
FLDSIZ, @FLDADR, #0, FIELDSIZE, @FIELDADR : 0630 
5$ : 
#1, STATUS + 0640 
6$ : 0638 
NMASW_KEYBUF > 0646 
NMASWIKEYBUF, @KEYADR > 0647 
2$ : 0589 
STATUS. 7$ : 0651 
PAA, : Oe8s 
8 : 0653 
#4, NMLSLOGRECORDOP : 
STATUS, RO : 0658 
3; 0660 


e Routines for Network Management 18-5 Sep-1984 VAX-11 Bi iss shee Pe 1 
04 NMASREADREC Get a record tron’s #7 File 1 Hat 7 99: 26; 35 DISK$V meh TER: chm” OC RCINMAF ILES. B32;1 ” cB) 
g $68 1 1 SSBTTL ‘*NMASREADREC Get a record fro File’ . 
: £96 ¢ : GLOBAL ROUTINE NMASREADREC (FILEID, KEYAOR, BUFDSC, RTNDSC) = : 
: 671 4 1 te : 
: of Fi : FUNCTIONAL DESCRIPTION: : 
3 ore :} \ — routine reads the next database record starting at the specified 3 
; 0s ii one : 
3 of oft ! FORMAL PARAMETERS: : 
: 67 Ose 1! FILEID Value of the fileid code (NMASC_OPN_xxxxx) ; 
; 680 > 1! KEYADR Address of a word containing the key to start reading : 
; 681 0674 1! Key value is returned in this word. : 
3 ret 0675 1! BUF DSC Address of a descriptor of a buffer to use ; 
: et pers : RTNDSC Address of a descriptor to return descriptor of data : 
; 685 0678 { IMPLICIT INPUTS: : 
: 687 0680 3} NONE : 
; 688 0681 1! $ 
: oe 0 ¢ : IMPLICIT OUTPUTS: : 
: 691 0684 1! NONE : 
; 69 0685 1! F 
; 69 2086 1 ! ROUTINE VALUE: 3 
: ree ee t4 : COMPLETION CODES: : 
; O38 +494 : NMA or RMS error status : 
; 698 0691 SIDE EFFECTS: : 
; $00 0693 1: NONE ; 
s Troi 0694 1! 3 
; 70 0695 1 !-- ; 
; 70 0696 1 3 
: 704 0697 BEGIN : 
: 705 0698 3 
$ m8 0699 3 
; 7 0700 BUFDSC : REF VECTOR, ' Buffer to use for record PF 
: 8 44 RTNDSC : REF VECTOR; ! Return data descriptor : 
: 710 18 LOCAL ; 
3 71 OF FILEDSC : REF BLOCK C1, BYTE) ! File descriptor 3 
; ne 705 FIELD (FDSCFLDS) é 
ma 07 FAB : KEF BLOCK C, BYTE], ! The fab for the file : 
> 714 07 RAB : REF BLOCK {, BYTES, i‘ The rab for the fil ; 
: 715 378 LCLOSC : VECTOR (2), 3 
: ay A STATUS; ' Status return : 
: 718 711 STATUS = NMASSELECTFILE (.FILEID : 
: ahs ne FILEDSCS; ! Obtain the file descriptor : 
; i ri IF NOT .STATUS ; 
; 738 r16 RETURN .STATUS; ! Bogus fileid : 
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ines for Network Management 
EC Get a record from a File 


Dee 


RAB = .FILEDSC CFDSCRAB); 
FAB = .FILEDSC LFDSCFABI; 


If FAB CFABow_1FII EQ. 0 
RETURN .FAB CFABSL_STS); 


RABSW_USZ) = .BUFDSC 92: 
RABSL_-UBF) = .BUFDSC [1]; 


NMASW_KEYBUF = ..KEYADR; 
STATUS = $GET (RAB = .RAB); 


RTNDSC £0} = RABSW_RSZ) - 
RTNDSC (1) = RABSL_RBF) + 


IF NOT .STATUS 
RETURN .STATUS; 


LCLDSC £0} = AB ERABSC™ Ree a: 
LCLOSC (1) = RABSL_RBF 


NMLSLOGRECORDOP (DBG$C_FILEIO, 


-(.LCLDSC ‘ne. 


H 1 

1-88-1986 19:50;08 
Point to the rab 
Get address of FAB 
If file not open, 
Return open failure status 


VAX-11 Bliss shce 
DISKSVMSMASTER: 


Set the buffer to use 


And the key value to use 
Read a record 


NMLSK_PERM_KEYS_LEN; 
NALSK™ ~PERM_KEYS_LEN; 


! If no good, return 


' Return for user to remember 


eFIL 
$ASCID (record read’), 


LCLDSC); 
RETURN NMA$_SUCCESS 
END; 


65 72 20 64 72 6F 63 65 72 
00000008 
00000000° 

0004 

5E oc C2 

E 0D 

FD76—sCF * 05 PB 
fos oe 

i oa HR 


-PSECT SPLITS,NOWRT,NOEXE,2 
00128 P.AAZ: .ASCII \record read\ 
3 -BLKB 
1 P.AAY LONG 11 
01 -ADDRESS P.AAZ 
-PSECT S$CODES,NOWRT,2 
00 ENTRY WAASREADREC. Save R2 
SUBL2 ele. 
PUSHL 
PUSHL in 
A CALLS 4 Gq MASSELECTFILE 
F BLBC 
if MOVL Iteaet 1 
01 mova BUR ), FAB 


CMS OSRCINMAFILES. B32; i 


° i 


04 
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NMAF S File Routines for Network Management lose -1984 42:37 VAX-11 Bliss-32 V4.0-74 P 

sal NMASREADREC Get a record fren’s File 1 ~3007 1382 90:08 '35 DT EKSVMGHASTERSCNPL SRCINMAFILES.B3204 7" BS 
02 Al 19 TSTW (FAB) : 0722 

05 i3 iC BNEQ $ : 
50 08 Al po 1 MOVL 8(FAB), RO + 0724 
51 0c ac D 1$: MOVL § BUFDSC, R1 t 0726 
ze As he Hove, sens 3g(RAB) : 0727 
00000000' 0 r 8 6 MOVW § @KEYADR, NMASW_KEYBUF : 0739 
DD PUSHL RAB + 0731 

000000006 99 FB A CALLS #1, SYSS$GET : 
1 19 A p 41 OVL §RTNDSC, R1 : 0733 

61 = 43 MOVZWL 34(RABS, (R1) : 

61 c 4 SUBL ¢ ae. (R1§ : 
06 Al 28 Ag C 004 ADDLS #2, 40(RAB), 4(R1) + 0734 
2 & 05 BLBC status 2$ : 0736 
04 AE 2 A2 3¢ 9005 MOVZWL 34(RABS, LCLDSC ; 0740 
08 AE A2 00 O005A OVL 40 (RAB). LCLDSC+4 + 0741 
08 BC 8 BE B0 9005 MOVW @LCLDSC+4, @KEYADR + 0743 
4 AE 9F 00064 PUSHAB LCLDSC > 0745 
00000000' 00 9F 90067 PUSHAB P.AAY : 0747 
04 AC DD 0006D PUSHL FILEID + 0746 
01 OD 60070 PUSHL #1 : 0745 

000000006 00 04 FB 007@ ChLLS #4, NMLSLOGRECORDOP : 
50 01 D0 0007 MOVL #1, RO : 0750 
04 0007C 2$: RET : 0752 


; Routine Size: 125 bytes, Routine Base: SCODE$ + O2FC 
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nes for Network Managemen 


dt File 


ecord to a x 
LOBAL ROUTINE NMASWRITEREC (FILEID, KEYADR, BUFDSC) = 


+e 
FUNCTIONAL DESCRIPTION: 
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This routine puts a record to the specified file. The key is 
specified by keyadr. The file was opened so that puts to existing 
records act as updates. The keyvalue is moved to the first two bytes 
of the record before the write. 

FORMAL PARAMETERS: 
FILEID Value if the fileid 
KEYADR Address of a word of oi ee 
BUF DSC Address of descriptor of data to write 

IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


RMS error code 
SIDE EFFECTS: 


NONE 
BEGIN 
MAP 

BUFDSC : REF VECTOR; ! User supplied data 
LOCAL 

R : REF BLOCK C1, BYTE], ! Address of rab 


STATUS ' Return wrote 

FILEDS€ : REF BLOCK C1, BYTE) ! File descriptor address 
FIELD (FDSCFLDS), 

LCLDSC : VECTOR (C2); 


STATUS = NMASSELECTFILE (.FILEID 
FILEDSCS; ! Obtain file descriptor 
IF NOT . STATUS 
RETURN .STATUS; ! Return the status 
RAB = Fh EDSC Mtg : ! Obtain the rab address 
LCLDSC t = .BUFDSC : + NMLSK_PERM_KEYS_LEN; 
LCLDSC £1) = :BUFDSC [1] - NMLSK~PERM-KEYS-LEN: 


tine 1b-se =1984 00:42:37 VAX-11 Bliss-32 V4.0-74 p 4 
EREC Write a Record to a File 1 ~300n 138% 99°48 585 TIEKSVMGMASTERSCWAL SRCINMAFILES.B3201 7" 33 
Esert "NMASWRITEREC Write a R 

! 

4 


a 


K 1 
File Routines for Network Managemen 16-Sep-1984 00:42:37 VAX=11 Bisse -32 V 5 NM 
NMASWRITEREC Write a Record L 3 File 19: at 7 90:28 '35 DISKSVMSMASTER: cNmc OC ACINMAF ILES. B32, 79 * § vou 
1 RABSW_RSZ -LCLDSC ! User buffer to write 
i AB ERABSY- “RBF eLCLDSC & £9}: 
i NMASW_KEY EYAD Key value from use 
i ULCLDSE ny eo 16,0> * NMASW _KEYBUE; neve key to bul fer for write 
18 STATUS = SPUT (RAB = .RAB); ! Put or update the record 
6 18 IF .STATUS | 
8 0 NMLSLOGRECORDOP (DBG$C_FILEIO, 
oe 1 FILETD 
: $ASCID ("record written’), 
oe i LCLDSC); 
0825 RETURN .STATUS 
08 § 
08 1 END; 


~PSECT S$PLITS,NOWRT,NOEXE ,2 


6— 65 74 74 69 72 77 20 64 72 6F 63 65 72 0013C P.ABB: .ASCII \record written\ ; 
OO14A ‘BLKB 2 
Q000000E 0014C P.ABA: :LONG 14 ; 
00000000" 00150 “ADDRESS P.ABB : 
.EXTRN SYS$PUT 
.PSECT $CODE$,NOWRT,2 
000c 60000 .ENTRY NMASWRITEREC, Save R2,R3 : 0754 
53 00000000' 00 i 90008 HOVAB NMASW_KEYBUF, R3 ; 
5E € C2 00009 SUBL2 #12, SP ; 
5E DD 0000C PUSHL SP + 0801 
04 AC DD 0000E PUSHL F EID : 
FCF2 CF 08 FB 90011 CALLS , NMASSELECTF ILE : 
52 50 DO 00016 OVL R STATUS : 
4c 52 £9 00019 BLBC RO, |S! fs : 0803 
36 6f DO 0001C MOVL  FILEDSC, RO : 0807 
1 oc AO D 0 1F MOVL  12(RO), RAB : 
50 € aC OD ; MOVL.  BUFDSC. RO + 0808 
04 A 60 ve C ADDL S #2, (RO), LCLDSC F 
8 AE 6 A ¢ SUBL3 #2, 4(ROS, LCL CLDSC +4 : 0809 
Al 4 AE B 0 MOVW LCLDSC, 34(RAB : 0810 
Al : AE D MOVL  LCLDSC4+4, 40¢ RAB) ; 811 
63 BC BO 0003¢ MOVW § @KEYADR, NMASW KEY : 0813 
08 BE ‘ 8 40 MOVW  NMASW_KEYBUF, SLeLbSC+4 : 0814 
1 DD 00044 PUSHL RAB : 0816 
000000606 Q BB. 46 CALLS #1, SYSS$PUT : 
9 D 40 OVL RO. STATUS ; 
1 0 LBC STATUS, 1$ ; 818 
04 ar F PUSHAB LCLDSC : 08 
00000000' 00 9F 3 PUSHAB P.ABA : 08 é 
04 ac OD C PUSHL FILEID : 08 
01 oD F PUSHL # + 0820 


NMAF 
v04 


1 
; NMASURITERE Urite s Record tea File if op-1984 12:36:02 DI SkSVMMASTERSENML SRC 
000000006 99 94 ‘ a4 i cats #4, NMLSLOGRECORDOP 


; Routine Size: 108 bytes, Routine Base: S$CODE$ + 0379 
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w$2p-1986 12:30:02 DISKBVM 


File descriptor address 


Obtain file descriptor 


Obtain the rab eddress 
Key value from user 


M 
File Routines for Network Management 1 
NMASDELETEREC Delete a Record from the File 1 
1 ZSBTTL "NMASDELETEREC Delete a Record from the File’ 
: GLOBAL ROUTINE NMASDELETEREC (FILEID, KEYADR) = 
1 1 tee 
§ ! FUNCTIONAL DESCRIPTION: 
hii This routine deletes a record from the file by specified key 
5 ; number. 
9 & ; FORMAL PARAMETERS: 
9 § ii FILEID Value if the fileid 
8 re : KEYADR Address of a word of keyvalue 
OB 1 | IMPLICIT INPUTS: 
, & 
OB 1! NONE 
0845 1! 
78] 1 ! IMPLICIT OUTPUTS: 
0847 1! 
0848 1! NONE 
0849 1! 
0850 1 ! ROUTINE VALUE: 
0851 1 : COMPLETION CODES: 
O86 1! 
0853 1! RMS error code 
0854 1! 
0855 1 ! SIDE EFFECTS: 
paee 1! 
0857 1! NONE 
0858 1! 
0859 1 !-- 
0860 1 
bees BEGIN 
b6¢ 
086 LOCAL 
0864 R : REF BLOCK C1, BYTE], ! Address of rab 
0865 STATUS ' Return status 
08 FILEDSC : REF BLOCK (1, BYTE] 
4 FIELD (FDSCFLDS); 
b595 STATUS = NMASSELECTFILE (.FILEID 
20 FILEDSCS; =! 
7 IF .STATUS 
7 THEN 
a BEGIN 
1 RAB = .FILEDSC CFDSCRAB); ! 
8 NMASW_KEYBUF = ..KEYADR; ! 
STATUS = S$DELETE (RAB = .RAB); ! Delete the record 
§ A _ STATUS 
NMLSLOGRECORDOP (DBGSC_FILEIO, 


8 
s 


Li 
MA 


$s-32 


STER: 


Panes Page 3! 
CNML.SRCIJNMAFILES.B32;1 (10) 


1 

NMAFILES File Routines for Network Management 16-Sep-1984 00:42:37 VAX-11 Bliss-32 V4.0-74 Page 28 

v04- NMASDELETEREC Delete a Record’ tren the File 1 ~3007} 382 90:48:35 NT EKSUMGMASTERSCWML SRC SNMAFILES 032647 185 

: 894 5 -FILEID ’ 
: 635 if $ASCID (‘record deleted’), : 
; 38 UPLIT (2, NMASW_KEYBUF)); 3 
; 89 3 : 
; 898 0 END; 3 
; 899 0890 ; 
; 00 0891 RETURN .STATUS . 
: 901 95 ; 
: 902 0893 1 END; ; 


-PSECT S$PLITS,NOWRT,NOEXE,2 


64 65 74 65 6C 65 64 20 64 72 6F 63 65 72 00123 P.ABD: tit \record deleted\ : 
9000000 ete P.ABC: .LONG 14 ; 
9900000 ' 00168 .ADDRESS P.ABD ; 
00000002 016¢ P.ABE: .LON : 
00000000' 00170 .ADDRESS NMAS$W_KEYBUF : 
.EXTRN SYSSDELETE 
.PSECT $CODE$,NOWRT,2 
0004 00000 .ENTRY NMASDELETEREC, Save R2 : 0829 
5E 04 C2 000¢ SUBL2 #4, SP : 
5E DD 0000 PUSHL : 0869 
04 AC DD 00007 PUSHL FILEID F 
FC8D CF 02 FB OOOOA CALLS +¥ NMASSELECTFILE r 
52 29 DO O000F MOVL RO, STATUS : 
36 52 £9 90012 BLBC STATUS, 1$ : 0872 
50 6E DO 0001 MOVL FILEDSC, RO : 0876 
50 0c AO DO 00018 MOVL  12(RO), RAB ; 
00000000' 00 08 BC BO 0001C MOVW § @KEYADR, NMASW_KEYBUF : 0878 
50 DD 00024 PUSHL : 0880 
000000006 99 gi FB 00026 CALLS #1, SYSSDELETE : 
: 09 0020 MOVL : 
1 5 3 00 0 BLBC STATUS, 1$ ; 0882 
90000000" 6 F 99 PUSHAB P.ABE : 0887 
00000000" 00 9F 00 33 PUSHAB P.ABC : 0886 
04 AC DD 0003F PUSHL FILEID : 0885 
1 DD Oke PUSHL @# : 0884 
000000006 99 4 FB 4 CALLS #4, NMLSLOGRECORDOP F 
2D 4B 1$ MOVL STATUS, R > 0891 
04 0004E RET : 0893 


; Routine Size: 79 bytes, Routine Base: SCODES + O3E5 
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16-$ sop-19 4 o 98: $6332 VAX-11 Bliss-32 V4.0-74 
Delete a Record from the File 14*$ :5 

! 


, Page 29 
Sep-1984 DISKSVMSMASTER: CNML.SRCINMAFILES.B32;1 (11) 
End of module 


PSECT SUMMARY 
Bytes Attributes 
i303 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NO 


. ’ PIC,ALIGN(2) 
NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON, NOPIE ALIGN(2) 
1076 NOVEC;NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


: we ee Se SS Symbo ols Se Pages Proc ess j nq 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA g: NML.OBJINMLLIB.L32;1 341 3 0 27 00:00.1 
> ~S$255$DUA28: SHARC IBSNMALIBRY 2-4 387 14 1 47 8: 33°s 
: 7$255$pUA28:CSYSLIBISTARLET.L32; | 9776 141 1 581 00:02. 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LISS:NMAFILES/OBJ=OBJ$:NMAFILES MSRC$:NMAF ILES/UPDATE=(ENHS:NMAF ILES) 
Size: 1076 0°85"; + 1724 data bytes 
me: 


: Elapsed Time: 1:49:0 


784 
; Lexenes/CPU-Min; 31149 
Used: 196 pages 


3 COMMAND QUALIFIERS 
one he omy Complete 
| 
| 


ENT CORPORATION 
ND PROPRIETARY 


m0280 vax7vms v4_o C * 


D=8 


TAL EQUIPMENT CORPORATION 
IDENTIAL AND PROPRIETARY 


OBL Tess isc 


